Type the script commands in the Input bar and press Enter key.

A= (2,4) 

SetCoords(A, x(A)+1, y(A)-1)

Circle(A, 3) 

SetDynamicColor[c, Red, Green, Blue]

B= (RandomBetween[-2, 2], RandomBetween[-2, 2])

r=RandomBetween[0,5]

c= Circle[B,r]

A = (RandomBetween[-3,3],RandomBetween[-3,3])

f(x) = ( x + x(A) )^2 + y(A) 

n = RandomBetween[ 0 , 1 ]

a = If[ n == 1 , 1 , -1 ]   


a * (x + x(A))² + y(A)


IF[n<3, Circle[(0,0),1], circle[(2,0),4]]   

IF[n>2,Circle[(0,0),2], Segment((2,2), 3)] 


IF[n>2, sin(90-x),cos(x)]  



IF[n>2, sin(90-x),tan(x)]














